home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / HUNCHY.ZIP / CGADRV.PAS < prev    next >
Pascal/Delphi Source File  |  1980-01-01  |  661b  |  39 lines
  1.  
  2. unit CGAdrv;
  3.  
  4. interface
  5.  
  6. uses Graph;
  7. procedure CGAdriverProc;
  8. procedure RegisterCGA;
  9. procedure InitCGA (Gm : integer);
  10.  
  11. implementation
  12.  
  13.   procedure CGAdriverProc; external;
  14.   {$L CGA.OBJ }
  15.  
  16.   procedure RegisterCGA;
  17.   var
  18.     Result : integer;
  19.   begin
  20.     Result := RegisterBGIdriver (@CGAdriverProc);
  21.     if Result<>0 then begin
  22.       Writeln ('CGAdrv register error');
  23.       Halt;
  24.     end;
  25.   end;
  26.  
  27.   procedure InitCGA (Gm : integer);
  28.   var
  29.     Gd : integer;
  30.   begin
  31.     Gd := CGA;
  32.     InitGraph (Gd, Gm, '');
  33.     if GraphResult<>0 then begin
  34.       Writeln ('CGAdrv initializing error');
  35.       Halt;
  36.     end;
  37.   end;
  38. end.
  39.